ETO Development Tools 1/ETO Development Tools 1.iso/Essentials/Developer Essentials Jul 90/U.S. System⁄HyperCard/HyperCard—US 1.2.5/HyperCard Ideas-US 1.2.5/Idea Stacks/Stack Ideas/background_29658.txt

Text File | 1988-11-07 | 9.1 KB | 439 lines

-- background: 29658 from stack: in
-- bmap block id: 7069
-- flags: 0000
-- background id: 0
-- name:
----- HyperTalk script -----
-- These background scripts handle check-boxes on a background by
-- storing the settings of the check-boxes in a hidden field called
-- "checks" and setting and resetting them on open and close card.
--
on newCard
  repeat with i=1 to the number of background buttons
    put "true" & return after field "checks"
  end repeat
end newCard

on openCard
  set cursor to 4 -- wristwatch
  repeat with i=1 to the number of background buttons
    set the hilite of background button i to (line i of field "checks" is true)
  end repeat
  set cursor to 1 -- browse tool
end openCard

on closeCard
  set cursor to 4 -- wristwatch
  repeat with i=1 to the number of background buttons
    get hilite of background button i
    put it into line i of field "checks"
  end repeat
  set cursor to 1 -- browse tool
end closeCard

on newStack
  newCard
end newStack


on openBackground
  push recent card
end openBackground


-- part 1 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=425 top=187 right=218 bottom=468
-- title width / last selected line: 0
-- icon id / first selected line: 10610 / 10610
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: dial phone
----- HyperTalk script -----
on mouseUp
  get the selection
  if it is empty then get the message
  if it is empty then ask "Dial what number?"
  if it is not empty then
    push this card
    visual effect zoom open
    go to stack "Phone"
    dial it
    pop card
  end if
end mouseUp



-- part 4 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=53 top=90 right=110 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 5 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=117 top=121 right=141 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 6 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=82 top=150 right=170 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 7 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=85 top=172 right=192 bottom=317
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: Phone Number


-- part 8 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=78 top=205 right=296 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=78 top=300 right=320 bottom=318
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=371 top=60 right=80 bottom=475
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 11 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=371 top=88 right=108 bottom=476
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name:


-- part 25 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=428 top=30 right=57 bottom=464
-- title width / last selected line: 0
-- icon id / first selected line: 15972 / 15972
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: go to calendar
----- HyperTalk script -----
on mouseUp
  get the seconds
  convert it to dateItems
  put ((item 1 of it) - 1987) *2 into whichSix
  if item 2 of it > 6 then add 1 to whichSix
  visual effect zoom open
  if whichSix < 1 then go card 1 of stack "Datebook"
  else if whichSix > 5 then go card 5 of stack "Datebook"
  else
    go to card whichSix of stack "Datebook"
    send "bracketWeek" && the seconds to this card
  end if
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=372 top=307 right=332 bottom=399
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=398 top=307 right=332 bottom=425
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=391 top=29 right=55 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Address
----- HyperTalk script -----
on mouseUp
  get the selection
  visual effect zoom open
  go to "Address"
  if it is not empty then find it
end mouseUp



-- part 29 (button)
-- low flags: 00
-- high flags: 6005
-- rect: left=336 top=119 right=141 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 39 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=423 top=305 right=333 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 6720 / 6720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=143 right=165 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 41 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=167 right=189 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 42 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=191 right=213 bottom=427
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 43 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=215 right=237 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 44 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=239 right=261 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 45 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=264 right=286 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 46 (button)
-- low flags: 00
-- high flags: 2005
-- rect: left=336 top=288 right=310 bottom=485
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:


-- part 47 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=464 top=29 right=58 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 48 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=477 top=52 right=329 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 10
-- part name: Checks